home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 75
/
64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_B.d64
/
v.d.e. v1
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
21 lines
1 a2=53280:gosub8:input"funktion (y=): peek(ln)[157][157][157][157][157][157][157][157][157][157]";f2$:pokea2,13
2 print"[144]";f$;f2$:print"run3:[145][145][145][145][145]":poke632,13:poke633,13:poke198,3:end
3 poke198,0:input"[158]start-zeilennummer: 1000[157][157][157][157][157][157]";zn
4 input"schrittweite-zeilennummer: 10[157][157][157][157]";zz:fort=0to27:readd
5 poke49152+t,d:next:input"startwert der laufenden nummer: 0[157][157][157]";ln
6 input"schrittweite der laufenden nummer: 1[157][157][157]";nz:a=49152
7 input"gesamtzahl der daten: 100 [157][157][157][157][157][157]";gd:sysa:pokea+2,49:pokea+4,234
8 md=6:pokea2,0:pokea2+1,0:print"[147]";tab(15);"[158]v.d.e. v1[157][157][157][157][157][157][157][157][157][163][163][163][163][163][163][163][163][163]"
9 a2$=chr$(34):f$="9 ?"+a2$+chr$(147)+""+a2$+":foraz=0to14:y=":a2=631:return
10 ln=ln+nz:y$=str$(y):ify<10theny$="00"+right$(y$,1):goto13
11 ify<100theny$="0"+right$(y$,2):goto13:data 120,169,13,160,192,141,20,3
12 y$=right$(y$,3):data 140,21,3,88,96,169,2,133,198,169,13,141,119,2,141
13 g$=g$+y$+",":da=da+1:gd=gd-1:ifgd<=0then17:data 120,2,76,49,234
14 ifda<>mdthenaz=az-1:next
15 g$=left$(g$,len(g$)-1):da=0
16 g$=str$(zn)+" data "+g$:zn=zn+zz:poke646,7:printg$:g$="":next:a=0:goto18
17 g$=left$(g$,(len(g$)-1)):printstr$(zn)+" data "+g$:a=1
18 print"[144]8 zn=";zn;"[157]:zz=";zz;"[157]:ln=";ln;"[157]:md=";md;"[157]:nz=";nz;"[157]:gd=";gd
19 a$="s[217]49152:p[207]198,0:s[217]58692:p[207]646,7:":a2$=chr$(34):ifa=0thenprint"r[213]8":end
20 print"[144]?c[200](147):?:?:f[207]a=1to20:?a:n[197]:?";a2$;a$;"l[201]:";a2$;":?c[200](19)"